home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_B.d64 / r.balls .demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  993b  |  28 lines
  1. 10 ifa=0thena=1:load"ruling b*",8,1
  2. 20 sys 49152
  3. 30 poke53280,0:poke53281,11:poke646,0
  4. 40 :
  5. 50 print "[147]@@@@@@@@@@@@@@@@@@@@********************";
  6. 60 print "********************@@@@@@@@@@@@@@@@@@@@";
  7. 70 print "____________ruling balls demo___________";
  8. 80 print " (w) 1993 by ford prefect/public domain"
  9. 90 print "         written for digital talk"
  10. 100 print"     _@@@@@@@@@@@@@@_************_
  11. 110 [153]"     ^              \greenhorn,  ^
  12. 120 print"     ^greetings to: \big boost,  ^
  13. 130 [153]"     ^              \            ^
  14. 140 print"     ^little john,  \  and all   ^
  15. 150 [153]"     ^cf im cf,     \   other    ^
  16. 160 print"     ^morgan,       \ cool guyz  ^
  17. 170 [153]"     ^smiling guru, \ of dt&cf ! ^
  18. 180 print"     ^dr. zoom(hi), \            ^
  19. 190 [153]"     _**************_@@@@@@@@@@@@_
  20. 200 print"";
  21. 210 print"     _@@@@@@@@@@@@@@@@@@@@@@@@@@@_
  22. 220 [153]"     ^  bitte space druecken,    \
  23. 230 print"     ^um die charsets zu swappen!\
  24. 240 [153]"     _***************************_
  25. 250 get a$:if a$<>" "then250
  26. 260 if g=0then g=1:poke53272,21:goto250
  27. 270 if g=1then g=0:poke53272,29:goto250
  28.